home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Click 1 (Special Issue) / fantasy.iso / Demo The Druid King / DemoMap.pak / SEQUENCES_S04_ROME_MESSENGER.VS < prev    next >
Text File  |  2001-04-11  |  2KB  |  67 lines
  1. // void
  2. NamedObj    Keltill;
  3. Conversation    Conv;
  4. Unit        RomeMessenger;
  5. TPoint        pt;
  6. int        i;
  7.  
  8. /*
  9. // Init
  10. if (true)
  11. {
  12.     Keltill = CreateNamedObj("Keltill", PlaceEx("Keltill", 6400, 14200, 1));
  13.     pt.Set (6371, 14289);
  14.     View (pt, false);
  15.     SetPlayer (1);
  16.     EnvWriteString("/DM C1/Return Value", "stay");
  17. }
  18. */
  19.     Keltill = GetNamedObj ("Keltill");
  20.     if (Keltill.IsDead ())
  21.     {
  22.         pr ("Keltill is dead?! That's right - that old son of a...!");
  23.         return;
  24.     }
  25.     for (i = 1; i <= 6; i += 1) PlayersAlly (i, 7);        // this is messenger after all!
  26.     RomeMessenger = PlaceEx ("RomeMessenger1", 6540, 15840, 7);
  27.     RomeMessenger.AddCommand (true, "approach", Keltill.obj);
  28.     RomeMessenger.KillCommand ();
  29.     while (RomeMessenger.script == "approach") Sleep (500);
  30.  
  31.     Conv.Init ("DM C14", 1, 0);
  32.     Conv.SetActor ("Messenger", RomeMessenger, "");
  33.     Conv.Run ();
  34.  
  35.     if (EnvReadString ("/DM C14/Return Value") == "Kill")
  36.     {
  37.         PlayersMakeEnemies (1, 7);
  38.         RomeMessenger.AddCommand(true, "attack", Keltill.obj);
  39.         RomeMessenger.KillCommand();
  40.         EnvWriteInt("/s04_rome_messenger/finished", 1);
  41.     }
  42.     else
  43.     {
  44.         if (EnvReadString ("/DM C14/Return Value") == "True")
  45.         {
  46.             pt.Set (6000, 9800);
  47.             RomeMessenger.AddCommand (true, "move", pt);
  48.             RomeMessenger.KillCommand ();
  49.             while (RomeMessenger.script == "move" || RomeMessenger.script == "advance") Sleep (1000);
  50.             RomeMessenger.Delete ();
  51.             EnvWriteInt("/s04_rome_messenger/finished", 1);
  52.         }
  53.         else
  54.         {
  55.             // the path is divided in two pieces because of pathfinding cap problem...
  56.             pt.Set (4600, 12650);
  57.             RomeMessenger.AddCommand (true, "move", pt);
  58.             RomeMessenger.KillCommand ();
  59.             while (RomeMessenger.script == "move" || RomeMessenger.script == "advance") Sleep (1000);
  60.             pt.Set (15700, 3400);
  61.             RomeMessenger.AddCommand (true, "move", pt);
  62.             RomeMessenger.KillCommand ();
  63.             while (RomeMessenger.script == "move" || RomeMessenger.script == "advance") Sleep (1000);
  64.             RomeMessenger.Delete ();
  65.             EnvWriteInt("/s04_rome_messenger/finished", 1);
  66.         }
  67.     }